home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 May / Disc 1 / PCU0503CD1.iso / resource / network / files / lannetsc.exe / {app} / Sample LANS scripts / sqlping.lans < prev    next >
Encoding:
Text File  |  2002-01-31  |  271 b   |  19 lines
  1. # sqlping
  2. # 'Ping' an SQL server
  3.  
  4. string    dataX
  5. integer   sock
  6.  
  7. _ip = "192.168.8.10"
  8.  
  9. # send an UDP packet to port 1434
  10. sock = open_udp()
  11. sendto(sock, _ip, "1434", {$02}, 1)
  12.  
  13. #receive the data
  14. dataX = recvfrom(sock, 255)
  15.  
  16. # show the data
  17. echo(dataX)
  18.  
  19.